#!/usr/bin/perl
################################################################################
#
# Runs the Java file which lets you create a new vernacular parms file.
# Strictly speaking, we probably don't need a special script file to do this,
# but it's convenient for the sake of uniformity with other programs.
#
#   createVernacularParms.pl
################################################################################

#-------------------------------------------------------------------------------
use strict;
use warnings;
use Cwd 'abs_path';
use File::Basename;
use File::Copy;
use File::Find;
use File::Spec;



#-------------------------------------------------------------------------------
my $scriptFolder = dirname(File::Spec->rel2abs( __FILE__ ));
my $javaFolder = File::Spec->catfile(abs_path("$scriptFolder/../_Java/"));



#-------------------------------------------------------------------------------
my $program = File::Spec->catfile($javaFolder, "UsxConfigEditor.jar");
my $status = system("java -jar \"$program\"");
if (0 != ($status >> 8)) { die "Program failed"; }
